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. TITLE TSTIO — TSX~Plus terminal interrupt driver 

. PSECT TSTIO 

. ENABL LC 

. ENABL AMA 

TSTIO contain the interrupt processing code for sending and receiving 
characters to DLll, D211, and DHll lines. 

. DSABL CBL 

Global definitions 

. GLOBL TSTIO, DLINT, DZOINT, CDSTRT, CDSTOP, NEDSOT 

. GLOBL CDIRTN> CDIFLG, CDORTN, CDOFLG, NEDCDI, NEDCDO 

. GLOBL ININT, CDSSPD, LINRTS, TTRSAV, TTINPT 

. GLOBL CDCLOK, CDGDSS, CDSDSS, CDSBRK, SETSPD 

. GLOBL CDSTR2, CDSXON, CDSXOF, DLSTRT, DZSTRT 

. GLOBL SILFET, TRNSTR, NEDCLO, TIOVEC, GETDSS, SETDSS 

Global references 



24 
25 
26 
27 

28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



GLOBL *OITIM. *XCHAR 

GLOBL KPAR6, LMXLN 

GLOBL DHSSPD, VHSSPD> DHSBRK, VHSBRK 

GLOBL LMXNUM 

GLOBL LSW3, LSW5 

GLOBL MXCSR, MXl NT 

GLOBL MXTBUF, MXTCR, NEDCHR, PR7, PSW 

GLOBL RLINE 

GLOBL TBR,TRINT, TRRDY, TSR 

GLOBL DHSTRT, DHSTOP, DLSBRK, DZSBRK, DZSSPD 

GLOBL VHSTRT, DLCLOK, DLSSPD, *DHCDO 

GLOBL DHXON, DHXOFF, VHXON, VHXOFF 

GLOBL DZCLOK, DLGDSS, DZGDSS, DHGDSS, VHGDSS 

GLOBL DLSDSS, DZSDSS, DHSDSS, VHSDSS 

GLOBL LOUTIR, KPAR5 

GLOBL LSWIO 

GLOBL $HISTP 

GLOBL *SXOFF, LCDTYP 

GLOBL *SXON 

GLOBL VHSTOP, INTPRI 

GLOBL DHCLOK, VHCLOK 



TSTID 
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29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 
50 
51 
52 
53 
54 
55 



Macro definitions: 

Disable interrupts 

. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 

Enable interrupts 

. MACRO ENABL 

BIC INTPRI>@#PSW 

. ENDM ENABL 



Disable interrupts 



Enable interrupts 



Call a routine in a system overlay 

. MACRO OCALL ENTADD 
.IF B, ENTADD 

.ERROR ; OCALL without entry address 



. ENDC 




CALL 


OVRHC 


. WORD 


ENTADD 


. ENDM 


OCALL 



The TTMAP and TTMAPX macros are used to map kernel-mode par6 to the 

terminal character buffer area. The previous contents of par6 map 

register are pushed on the stack and may be restored by using the 

UNMAP or UNMAPX macros. 

Rl must contain the line index number of the line whose buffers 

are being accessed. 

The difference between the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 

macros is that the X-versions are more efficient but may only be 

used from within interrupt service routines where we are guaranteed 

to be running on the system stack. 

The TTMAP and UNMAP versions of the macros must only be 

used in sections of code where the interrupts are disabled. 

. MACRO TTMAPX 

MOV LTTP AR < R 1 ) , e«KPAR6 

. ENDM TTMAPX 



. MACRO UNMAPX 

. ENDM UNMAPX 

. MACRO TTMAP 

MOV e#KPAR6, MAFHLD 

MOV LTTP AR ( R 1 > , €l#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, €'#KPAR6 

. ENDM UNMAP 
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7 






8 






9 






10 






U 






12 


000000 




13 


000000 


000456' 


14 


000002 


000600 •' 


15 


000004 


000640 ' 


16 


000006 


000640 ' 


17 


000010 


000240 ' 


18 


000012 


000240' 


19 


000014 


000240 ■' 


20 


000016 


000240 •' 


21 






22 






23 






24 






25 


000020 


000240' 


26 


000022 


000240 ' 


27 


000024 


OOOOOOG 


28 


000026 


0000000 


29 


000030 


000240' 


30 


000032 


000240 ' 


31 


000034 


000240 ' 


32 


000036 


000240 ' 


33 






34 






35 






36 






37 






38 






39 






40 


000040 


000240 ' 


41 


000042 


000240 ' 


42 


000044 


ooooooe 


43 


000046 


000000<5 


44 


000050 


000240 ' 


45 


000052 


000240 ' 


46 


000054 


000240 ' 


47 


000056 


000240 ' 


48 






49 






50 






51 






52 






53 






54 






55 


000060 


000314' 


56 


000062 


000314' 


57 


000064 


0000000 



Address vectors used to transfer control to device specific routines 
based on the device type code (CDX*xxx). 

Note: the entries in these vectors must be arranged in the same order 
as the CDX*xxx values defined in TSGEN. 

Table of routines to call to initiate transmission to a line 



Inputs: 



Rl 



Physical line index number. 



TSTIO: 






CDSTRT: 


. WORD 


DLSTRT 




. WORD 


DZSTRT 




. WORD 


REQCDO 




. WORD 


REQCDO 




. WORD 


DORTS 




. WORD 


DORTS 




. WORD 


DORTS 




. WORD 


DORTS 



DLll 

DZll 

DHll 

DHVll 

Professional console 

Professional communications port 

Professional printer port 

Professional quad serial line unit 

Table of routines used to perform actual hardware startup 
of output transmission. 

CDSTR2: .WORD DORTS iDLll 

DZll 
DHll 
DHVll 

Professional console 
Professional communications port 
Professional printer port 
Professional quad serial line unit 

Table of routines to call to stop transmission to a line. 
(These routines are used if a ctrl-S is received) 

Inputs: 
Rl = Physical line index number. 

DLll 

DZll 

DHll 

DHVll 

Professional console 

Professional communications port 

Professional printer port 

Professional quad serial line unit 

Table of routines called to stuff an XOFF (ctrl-S) into the output 
stream for a line. 



. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DHSTRT 


. WORD 


VHSTRT 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 



CDSTOP: . WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DHSTOP 


. WORD 


VHSTOP 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 



Inputs: 
Rl = Line 

CDSXOF: . WORD 
. WORD 
. WORD 



index number 

DLXOFF 
DLXOFF 
DHXOFF 



DLll 
DZll 
DHll 



f 
f 



TSTIO 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 

70 
71 
72 
73 
74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



000066 
000070 
000072 
000074 
000076 



000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 



000120 
000122 
000124 
000126 
000130 
000132 
000134 
000136 



000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 



OOOOOOG 
000314' 
000240 •' 
000314' 
000314' 



000342 ' 
000342 ' 
OOOOOOG 
0000000 
000342 ' 
000240 ' 
000342 ' 
000342 ' 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000240 ' 
000240 ' 
000240 ' 
000240 ' 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000240 ' 
000240 ' 
000240 ' 
000240 ' 



Thursday 


17-Dec- 


. WORD 


VHXOFF 


. WORD 


DLXOFF 


. WORD 


DORTS 


. WORD 


DLXOFF 


. WORD 


DLXOFF 
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CDSXOW: . WORD 


DLXON 


. WORD 


DLXON 


. WORD 


DHXON 


. WORD 


VHXON 


. WORD 


DLXON 


. WORD 


DORTS 


. WORD 


DLXON 


. WORD 


DLXON 



; DHVll 

; Prof essional console 

; Prof essional communications port 

j Prof essional printer port 

; Prof essional quad serial line unit 

Table of routine called to stuff an XON <ctrl-Q) into the output 
stream for a line. 

Inputs: 
Rl -- Line index number. 

;DL11 

>DZ11 

;DH11 

i DHVl 1 

; Prof essional console 

i Prof essional communications port 

i Prof essional printer port 

; Prof essional quad serial line unit 

Table of routines to be called on a 0. 5 second basis to do line checking. 

Inputs: 
Rl = Physical line index number. 

DLll 

DZll 

DHll 

DHVll 

Professional console 

Professional communications port 

Professional printer port 

Professional quad serial line unit 

Table of routines to be called to get the data set status 

Inputs: 
Rl - Physical line index number. 

Outputs: 
RO ~ Generic data set status flags <MS*xxx) 

DLll 

DZll 

DHll 

DHVll 

Professional console 

Professional communications port 

Professional printer port 

Professional quad serial line unit 

Table of routines to be called to set data set status 



CDCLOK: . WORD 


DLCLOK 


. WORD 


DZCLOK 


. WORD 


DHCLOK 


. WORD 


VHCLOK 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 



CDGDSS: . WORD 


DLGDSS 


. WORD 


DZGDSS 


. WORD 


DHGDSS 


. WORD 


VHGDSS 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 



Inputs; 
RO = Data set control flags (MS*xxx) 
Rl = Physical line index number. 



f 
f 
I 

c 
I 

( 
i 

€ 
€ 

i 
i 
< 

i 
i 
* 
1 
( 



\ 



ST 10 


— TSX~ 


Plus ter 


H5 






116 


000160 


0000000 


117 


000162 


000000(2 


lis 


000164 


OOOOOOG 


119 


000166 


0000000 


120 


000170 


000240 ■' 


121 


000172 


000240 ' 


122 


000174 


000240 ■' 


123 


000176 


000240 ' 


124 






125 






126 






127 






128 






129 






130 






131 


000200 


OOOOOOG 


132 


000202 


OOOOOOG 


133 


000204 


OOOOOOG 


134 


000206 


OOOOOOG 


135 


000210 


000240 ' 


136 


000212 


000240 ' 


137 


000214 


000240 ■' 


138 


000216 


000240' 


139 






140 






141 






142 






143 






144 






145 






146 


000220 


OOOOOOG 


147 


000222 


OOOOOOG 


148 


000224 


OOOOOOG 


149 


000226 


OOOOOOG 


150 


000230 


000240 ' 


151 


000232 


000240' 


152 


000234 


000240' 


153 


000236 


000240 ' 


154 






155 






156 






157 


000240 


000207 


158 






159 






160 






161 






162 


000242 




163 


000242 


000000 


164 


000244 


000000 


165 


000246 


000000 


166 


000250 


000000 


167 


000252 


000000 


168 


000254 


000000 


169 


000256 


000000 


170 


000260 


000000 


171 


000262 


000000 
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CDSDSS; 


WORD 


DLSDSS 




WORD 


DZSDSS 




WORD 


DHSDSS 




WORD 


VHSDSS 




WORD 


DORTS 




WORD 


DORTS 




WORD 


DORTS 




WORD 


DORTS 


; Table 


of rou 


tines t 



jDLll 

iDZll 

;DH11 

;DHV11 

; Prof essional console 

; Prof essional communications port 

i Prof essional printer port 

; Prof essional quad serial line unit 

be called to control break transmission 



Inputs: 
RO = Break control flag (HS*BRK) 
Ri = Physical line index number. 



CDSBRK: . WORD 


DLSBRK 


. WORD 


DZSBRK 


. WORD 


DHSBRK 


. WORD 


VHSBRK 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 



DLll 

DZll 

DHll 

DHVll 

Professional 

Professional 

Professional 

Professional 



console 

communications port 
printer port 
quad serial line unit 



Table of routines to be called to control transmission speed 

Inputs: 
RO ~ Line speed code. 
Rl ~ Line index numbe-r. 

DLll 

DZll 

DHll 

DHVll 

Professional console 

Professional communications port 

Professional printer port 

Professional quad serial line unit 

Dummy routine to do a simple return 

)ORTS: RETURN 

Pointer vector to routines in TSTIOX module that is relocated over TSINIT. 



CDSSPD: . WORD 


DLSSPD 


. WORD 


DZSSPD 


. WORD 


DHSSPD 


. WORD 


VHSSPD 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 


. WORD 


DORTS 



TIOVEC 






ININTP 


. WORD 





TTIWPT 


. WORD 





SILFET 


. WORD 





TTRSAV 


. WORD 





TRNSTR 


. WORD 





NEDCP: 


. WORD 





CDORTN 


. WORD 





CDIRTN 


. WORD 





SNDFRE 


. WORD 
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# 
1 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
ISS 



189 

190 
191 

192 
193 



000264 177777 



. WORD 



Signal end of vector 



000266 
000270 
000272 
000274 
000276 



000300 
000301 

000302 
000305 
000310 



000000 
000000 
000000 
000000 
000000 



000 
000 



001 
010 
100 



002 
020 
200 



004 
040 



i Uat. 


3 areas 




MAPHLD 


. WORD 





NEDCDI 


. WORD 





NEDCDO 


. WORD 





NEDCLO 


. WORD 





NEDSOT 


. WORD 






Byte data 



CDIFLO: . 
CDOFLG: . 
i Table 
MXLBIT: . 



BYTE 
BYTE 
used 
BYTE 








;TEMP 


CELL 


USED BY 


i Hon- 


zero 


==> 


Need 


i Non- 


zero 


==> 


Need 


i Non- 


zero 


==> 


Need 


; Non- 


zero 


==> 


Need 



Non-zero 
Non-zero 



==.> 



TTMAP MACRO 

clock driven input proc 
clock driven output proc 
CL output processing 
output-louj job scheduling 



Input char fork routine running 
Output char fork routine running 



to select bi t-within-word corresponding to a line 



00031; 



000207 



. EVEN 
; Ignore an interrupt 
LINRTS: RETURN 



j Ignore interrupt 



Tsrio 

Dl XOFF 
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Transmit XOFF character 

. SBTTL DLXOFF — Transmit XOFF character 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

1 o 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 



000314 



000314 052761 0000000 OOOOOOG 



000322 052761 OOOOOOG OOOOOOG 



000330 016100 OOOOOOG 
000334 004770 000000 ' 



000340 000207 



; DLXOFF is called to transmit an XOFF <ctrl-S) character to stop 
i transmission to us. 

; Inputs: 

* Kl - Line index number. 

> 

DLXOFF: 

; Set flag saying we have stopped the sender 

i 

BIS #*HISTP, LSW10<R1 >J Set flag saying u»e have stopped sender 

> Set flag to cause an XOFF character to be sent by the transmitter 
.; interrupt routine. 

BIS #*SXOFF, LSW10<Rl)i Set flag saying to send XOFF 

■f Start the transmitter 

i 

MOV LCDTYP(R1 ), RO ; Get device type code index 

CALL eCDSTRT<RO) iCall routine to start the transmitter 

t Finished 

RETURN 
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. SBTTL DLXON — Transmit XON character 

DLXON is called to transmit an XON (ctrl-Q) character. 



1 

2 

3 

4 

5 

6 

7 

3 000342 

9 
10 
11 

12 000342 042761 OOOOOOG OOOOOOG 
13 
14 
15 
16 

17 000350 052761 OOOOOOG OOOOOOG 
18 
19 
20 
21 



000356 016100 OOOOOOG 
000362 004770 000000 ' 



23 
24 

25 
26 



26 000366 000207 



Inputs: 
Rl ~- Line index number. 

DLXON: 

Clear flag that says XOFF has been sent 

B.TC #*HISTP.-LSyiO<Rl)i Clear flag that says XOFF has been sent 

Set flag to cause an XON character to be sent by the transmitter 
interrupt routine. 

BIS #*SXON, LSW10<R1); Force transmission of XON 

Start the transmitter 

MOV LCDTYPCRl ), RO ; Get device type index number 

CALL eCDSTRT<RO) iCall routine to start the transmitter 

Fini shed 

RETURN 



\ 
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3 
4 
5 
6 
7 

a 

9 
10 

u 

12 
13 
14 
15 
16 
17 
IQ 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



000370 1 0046 



00037^ 



000374 
000400 



000402 
000410 
000416 
000424 
000426 



000432 
000434 
000436 



000440 

000446 
000454 



011404 



004774 
103417 



052764 
042764 
032774 
00 1 774 
110074 



012600 
012604 
000002 



042764 
042774 
000766 



. SBTTL DLINT — DL terminal output interrupt entry point 

DLINT contains the DL device specific output interrupt service routine. 
The interrupt is vectored directly to an instruction sequence of the 
form 



JSR 
. WORD 



R4, @#DLINT 
line number 



IhuB on entry to DLINT R4 has been saved on the stack and currently 
points to a word containing the line index number. 

DLINT: i^OV RO, -(BP) J Save registers <R4 already on stack) 

Obtain the interrupting physical line number. 

MOV <R4)/R4 ; Get physical line index number 

Get next character to transmit 



0000000 



CALL @L0UTIR<R4) 
BCS DLCLR 



/Get next character for line 
i Br if no character available 



Transmit the character contained in RO. 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



1$; 



BIS #*XCHAR, LSW3<R4) 
BIC #*OITIM, LSW5(R4) 
BIT #TRRDY, @TSR(R4) 
BEG 1* 
MOVB RO, @TBR<R4) 

Finished. Return from interrupt. 



Set transmitter busy flag 

Start timer to catch lost interrupts 

Make sure transmitter is ready 

Should never loop here 

Transmit the character 



DLRTN: 



MOV 
MOV 
RTI 



<SP)+, RO 
(SP)+, R4 



Disable transmit interrupts. 



OOOOOOG OOOOOOG DLCLR: 
OOOOOOG OOOOOOG 



BIC #«XCHAR,LSW3(R4) 
BIC #TRINT, eTSR<R4) 
BR DLRTN 



R4 was pushed by JSR instruction 



i Set not busy transmit flag 

i Disable transmit interrupt enable 

i Return from interrupt 



SBTTL DLSTRT 



Start output to a DLll line 



Start output to a DLll line. 
Enable transmit interrupts. 
Rl = Physical line number 



000456 
000464 



052771 
000207 



OOOOOOG OOOOOOG DLSTRT: 



BIS 
RETURN 



#TRINT, @TSR<R1) 



; Enable transmit interrupt enable 
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3 

4 

5 

6 

7 

S 

9 
10 
11 
IP 
13 

14 000466 

15 000470 
16 

17 

18 

19 000472 
000474 
000500 
000502 
000506 
000510 
000514 
000516 



20 
21 
22 
23 
24 
25 
26 

28 
29 

30 000520 

31 000524 
32 

33 
34 

35 000526 

36 000534 

37 000542 
38 

39 
40 

41 000546 

42 000550 

43 000552 

44 000554 
45 

46 
47 

45 000556 

49 000564 

50 000570 

51 000576 



010046 
010446 



011505 
017500 
10002i:! 
042700 
000300 
066500 
111004 
001413 



004774 
103414 



052764 
042764 
110075 



012604 
012600 
012605 

ooooon 



042764 
016400 

146075 
000763 



OOOOOOG 
OOOOOOC 
OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



SBTTL DZOINT 



DZ terminal output interrupt entry point 



DZOINT contains the DZ device specific output interrupt service routine. 
The interrupt is vectored directly to an instruction sequence of the 

form 



JSR 
. WORD 



R5, @#DZOINT 
mux number 



Thus on entry to DZOINT R5 has been saved on the stack and currently 
points to a word containing the mux index number. 



DZOINT: MOV 
MOV 



RO, -(SP) 
R4, -<SP) 



; Save registers (R5 already on stack) 



Obtain the interrupting physical line number. 



MOV 


(R5),R5 


MOV 


eMXCSR<R5),R0 


BPL 


DZRTN 


BIC 


#-'^C<RLINE>, RO 


SWAB 


RO 


ADD 


MXLNT(R5)>R0 


MOVE 


(R0>>R4 


BEO 


DZRTN 



i Get mux index number 

i Get the DZ CSR status register 

; Br if no line interrupted 

j Issolate the interrupting line 

;Shift to right byte 

i Point to correct MUX line table 

i Get the physical line number 

i Br if line not genned in system 



Obtain the next character for the interrupting line. 



CALL @L0UTIR(R4) 
BCS DZCLR 



i Get the next character for line 
i Br if no character available 



Transmit the character contained in RO. 



#*XCHAR,LSW3<R4) 
#*OITIM, LSW5(R4) 
RO, @MXTBUF(R5) 

Return from interrupt. 

(SP)+, R4 
<SP)+, RO 
<SP)+, R5 



Disable transmit interrupts. 





BIS 




BIC 




MOVB 


i F i n i 


shed. 


DZRTN: 


MOV 




MOV 




MOV 




RTI 



i Set transmitter busy flag 

j Start timer to catch lost interrupts 

i Transmit the character 



; R5 was saved by JSR 



OOOOOOG OOOOOOG DZCLR: 

OOOOOOG 

000302^ OOOOOOG 



BIC #*XCHAR,LSW3(R4) 

MOV LMXLN<R4),R0 

BICB MXL8IT<R0), @MXTCR(R5) 

BR DZRTN 



; Set not busy transmit flag 
i Get number of line within MUX 
i Disable transmitter interrupt 
i Return from interrupt 
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( 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

1.3 

13 

14 



SBTTL DZSTRT — Start output to a DZll line 



000600 
000602 
000604 
000610 
000614 
000622 
000624 



Start output to a DZll line. 
Enable transmit interrupts. 
F'il = Physical line number 



01004vl> 
01054v'> 
016105 
016100 
156075 
013605 
012600 



0000000 
0000000 
000302 ' 



OOOOOOG 



000626 000207 



DZSTRT: 


MOV 


RO, -<SP) 




MOV 


R5, -<SP) 




MOV 


LMXNUM(R1 ),R5 




MOV 


LMXLN<R1.1, RO 




BISB 


MXLBIT<R0>,©MXTCR<R5) 




MOV 


<SP)+, R5 




MOV 


(SP)+, RO 




RETURN 





J Save reg i sters 

iOet the MUX index number 
i Get number of line within MUX 
; Enable transmitter interrupt 
.: Restore registers 



( 

I 

i 
i 

i 
i 
i 
i 

€ 
€ 

i 

i 
i 
i 
i 
i 
i 
i 
i 



TSTIO 
NEDCHR 
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— Get next character for output 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



. SBTTL NEDCHR — Gc?t next character for output 

This is a dummy resident routine which calls the relocated 
NEDCHR routine in the TSTIOX module. 



000630 000177 177420 



NEDCHR: JMP 



SNEDCP 



iCall routine in TSTIOX 



000634 000177 177402 



This is a dummy resident routine which calls the relocated 
ININT routine in the TSTIOX module. 

ININT: JMP eiNINTP ;Call routine in TSTIOX 

.SBTTL REQCDO — Request clock-driven output processing 

REQCDO is called to set a flag requesting clock-driven output 
character processing. 



Inputs: 
Rl = Physical line index number. 

000640 052761 0000000 0000000 REQCDO: BIS #«DHCDO, LSW10<R1 ) 
000646 005237 000272' INC NEDCDO 

000652 000207 RETURN 



/Request clock-driven processing 
i Request output processing 
; Finished 



c 

I 

i 
I 
f 

ff 

€ 
C 

< 
i 
< 
€ 

t 

< 
i 
( 
I 



TSTIO 
SETSPD 
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Set transmit/receive speed for a lint? 



1 
2 
3 
4 
S 
6 
7 

S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



000654 010246 

000656 013746 OOOOOOG 



000662 016102 OOOOOOG 
000666 004772 000220 ' 



000672 012637 OOOOOOG 
000676 012602 
000700 000207 



. SBTTL SETSPD — Set transmit/receive speed for a line 

SETSPD is called to set the transmit/receive speed for a line. 

Inputs: 
RO = Speed code. 
Rl - Line index number of line being set. 



SETSPD: MOV 
MOV 



R2, -<SP) 

@#KPAR5» ~<SP.> i Save kpar 5 in case an overlay is calling us 



CbI} harduiare dependent routine to set the speed 



MOV 
CALL 

Fini Khed 



LCDTYP<R1 >, R2 ; Get hardware device type code 
@CDSSPD<R2) jCall routine to set the speed 



MOV <SP)+, e#KPAR5 
MOV ( SP ) +, R2 
RETURN 



( 

I 

f 

i 

i 
f 
f 
< 
i 
i 
i 
< 

€ 

i 

i 
i 
i 
i 
i 
i 
i 
i 
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Get/&t?t data set status 



TST 10 

SETDSS/SETDSS 

1 
2 
3 
4 
5 
6 

7 000702 005046 

8 000704 000402 

9 000706 012746 000001 
10 

11 000712 010246 

12 000714 013746 OOOOOOG 
13 

14 
15 

16 000720 016102 OOOOOOG 

17 000724 005766 000004 
IS 000730 001003 

19 000732 004772 000140' 

20 000736 000402 

21 000740 004772 000160' 
22 

23 
24 

25 000744 01263? OOOOOOG 

26 000750 012602 

27 000752 005726 

28 000754 000207 
29 

30 000001 

Errors detected: 

*** Assembler statistics 



. SBTTL GETDSS/SETDSB — Get/set data set status 

Inputs: Rl contains line index 

For setj options Bve in RO (for @CDSDSS routine) 
Outputs: For get. options are returned in RO (by @CDGDSS routine) 

i Say uie are getting status 

; Br to common routine 

; Say me are setting data set status 

.: Save KPAR 5 in case overlay is calling us 

Call hardware dependent routine to get current data set status 

Get hardware device type code 
Get or set data set status? 
Br if set 

Get data set status (into RO) 
Br to exit 
1*: CALL @CDSDSS(R2) i Set data set status (from RO) 



GETDSS: 


CLR 


-(SP) 






BR 


DSSCDM 




SETDSS: 


MOV 


#1, -(SP) 




DSSCOM: 


MOV 


R2, -(SP) 






MOV 


@#K.PAR5, - 


- ( SP ) 



MOV 


LCDTYP(R1 ),R2 


TST 


4(SP) 


BNE 


1* 


CALL 


@CDGDSS(R2) 


BR 


2* 


CALL 


@CDSDSS(R2) 



Cl{?an up and return 



?*: 



MOV 


(SP)+, e#KPAR5 


MOV 


(SP)+, R2 


TST 
RETUR^ 


(SP) + 
i 



J Restore KPAR 5 mapping 

; Remove GET/SET flag from stack 



. END 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







232 Words ( 1 Pages) 

17920 Words ( 70 Paqes) 

RT -11 



Elapsed time: 00:00:09.51 

DK: TSTIO, LP: TSTI0=^DL1: TSTIO. MAC/C/N: SYM 
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Cross reference table <CREF V05. 04) 

*DHCDO 1-32 9-P;? 

*H.TSTP 1-3S 4-13 5-12 

*uifiri 1-k'k' b-k'u /-;i6 

$SXOFF 1-39 4-10 

*SXON 1-40 5-17 

*XCHAR 1-22 6-27 6-41 7-35 7-48 

CDCLOK 1-16 3-84# 

CDGDSS 1-16 3-101# 11-19 

CDIFLG 1-14 3"1B5# 

CDIRTN 1-14 3-170# 

CDOFLG 1-14 3-JB6# 

CDORTN 1-14 3- 169* 

CDSBRK 1-16 3-131# 

CDSDSS 1-16 3~l. 16# 11-21 

CDSSPD 1-15 3-146# 10-15 

CDSTOP 1-13 3~40it 

CDSTR2 1-17 3-25# 

CDSTRT 1-13 3-.t.3# 4--23 5-22 

CDSXOF 1-17 3-55# 

CDSXON 1-17 3-7u# 

DHCLOK 1-42 3-86 

DHGDSS 1-34 3-103 

DHSBRK 1-24 3-133 

DHSDSS 1-35 3-118 

DHSSPD 1-24 3-148 

DHSTOP 1-31 3-42 

DHSTRT 1-31 3-27 

DHXOFF 1-33 3-57 

DHXON 1-33 3-72 

DLCLOK 1-32 3-84 

DLCLR 6-23 6-4 1# 

DLGDSS 1-34 3-101 

DLINT 1-13 6-14# 

DLRTN 6-35# 6-43 

DLSBRK 1-31 3-131 

DLSDSS 1-35 3-116 

DLSSPD 1-32 3-146 

DLSTRT 1-17 3-13 6-5 1# 

DLXOFF 3-55 3-56 3-59 3-61 3-62 4-9# 

DLXON 3-70 3-71 3-74 3-76 3-77 5-8# 

DORTS 3-17 3-18 3~19 3-20 3-25 3-26 3-29 3-30 3-31 3-32 3-40 3-41 

3-44 3-45 3-46 3-47 3-60 3-75 3-88 3-89 3-90 3-91 3-105 3-106 

3-107 3-108 3-120 3-121 3-122 3~123 3-135 3-136 3-137 3-13S 3-150 3-151 

3-152 3-153 3-157# 

DSSCOM 11-8 11-11# 

DZCLOK 1-34 3-85 

DZCLR 7-31 7~48« 

DZGDSS 1-34 3-102 

DZOINT 1-13 7-1 4# 

DZRTN 7-21 7-26 7-4 1« 7-51 

DZSBRK 1-31 3-132 

D2SDSS 1-35 3-117 

DZSSPD 1-31 3-147 

DZSTRT 1-17 3-14 8-7# 

GETDSS 1-18 11 -7# 

INI NT 1-15 9-i;>« 



( 
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Cross reference table (CREF V05. 04) 



ININTP 


3-163# 


9-12 








INTPRT 


1-41 










KPAR5 


1-36 


10-10 


10-19^^ 


11-12 


11-25* 


KPAR6 


1-23 










LCDTYP 


1-39 


4-22 


5-21 


10-14 


11-16 


LINRTS 


1-15 


3-193# 








LMXLN 


1-23 


7-49 


8-10 






LMXNUM 


1-25 


8-9 








LOUT I R 


1-36 


6-22 


7-30 






LSWIO 


1-37 


4-13*- 


4-1 8 tr 


5~12« 


5-17* 


LSW3 


1-26 


6-27* 


6-4 1 «• 


7-35* 


7-40* 


LSW5 


1-26 


6~28<' 


7-36i;- 






MAPHLD 


3-177# 










MXCSR 


1-27 


7-20 








MXLBIT 


3-18S# 


7-50 


8-11 






MXLNT 


1-27 


7-24 








MXTBUF 


1-28 


7-37 K- 








MXTCR 


1-28 


7-50^ 


S"~il* 






NEDCDI 


1-14 


3-17B# 








NEDCDO 


1-14 


3-r79# 


9-23 K- 






NEDCHR 


1-28 


9-6# 








NEDCLO 


1-18 


3-180# 








NEDCP 


3-16S# 


9-6 








NEDSOT 


1-13 


3~181# 








PR 7 


1-28 










PSW 


1-28 










REQCDO 


3-15 


3-16 


9-22=H 






RLINE 


1-29 


7-22 








SETDSS 


1-ie 


11~9# 








SETSPD 


1-16 


10-9# 








SILFET 


1-18 


3-16!/# 








SNDFRE 


3-171# 










TBR 


1-30 


6-3J+.' 








TIOVEC 


1-18 


3-162# 








TRINT 


1-30 


6-42 


6-51 






TRNSTR 


1-18 


3-167# 








TRRDY 


1-30 


6-29 








TSR 


1-30 


6-29 


6-42» 


6-5 H^^ 




TSTIO 


1-13 


3-124' 








TTINPT 


1-15 


3-.i64# 








TTRSAV 


1-15 


3-166# 








VHCLOK 


1 -42 


3-CJ7 








VHGDSS 


1-34 


3-U)4 








VHSBRK 


1-24 


3-134 








VHSDSS 


1-35 


3-1 J 9 








VHSSPD 


1-24 


3-149 








VHSTOP 


1-41 


3-43 








VHSTRT 


1-32 


3-2B 








VHXOFF 


1-33 


3-58 








VHXON 


1-33 


3--73 









9-22* 
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DISABL 


2- 


-6# 


ENABL 


2- 


-i2# 


OCALL 


2- 


-18# 


TTMAP 


2- 


-48# 


TTMAPX 


2- 


-39# 


UNMAP 


2- 


-53# 


UNMAPX 


2- 


•45# 



I 



